home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Demos / TrueBASIC Demo / User's Guide / Guess2 < prev    next >
Encoding:
Text File  |  1985-06-20  |  828 b   |  36 lines  |  [TEXT/TRUE]
  1. ! Program to play a guessing game.
  2. !
  3. RANDOMIZE
  4. LET answer = Int(Rnd*6) + 1       ! From 1 to 6
  5.  
  6. PRINT "I'm thinking of a number from 1 to 6."
  7. PRINT "You have 3 chances to guess it."
  8. PRINT
  9.  
  10. FOR chance = 1 TO 3
  11.    PRINT "Enter your guess";     ! Ask for number
  12.    INPUT guess                   ! Get a guess
  13.  
  14.    IF guess < 1 THEN             ! Check it out
  15.       PRINT "Must be at least 1."
  16.    ELSE
  17.       IF guess > 6 then
  18.          PRINT "Can't be more than 6."
  19.       ELSE
  20.          IF guess < answer then
  21.             PRINT "Too low."
  22.          ELSE
  23.             IF guess > answer then
  24.                PRINT "Too high."
  25.             ELSE                 ! Must be right
  26.                PRINT "Correct!!!"
  27.                STOP
  28.             END IF
  29.          END IF
  30.       END IF
  31.    END IF
  32. NEXT chance
  33.  
  34. PRINT "The number was"; answer; "."
  35. END
  36.